#!/usr/bin/perl

use strict;

open(LOG,"/tmp/uvlist.log");
while(<LOG>){
    chomp;
    my $line=$_;
    print "original line:\n";
    print $line."\n";
    $line=~s/(\d)(\-)/$1 $2/g;
    print "new line:\n";
    print $line."\n";
}
close(LOG);
